00010 



XLIST 
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000000 
000001 
000002 
000003 
000004 
000005 

000006 
000007 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000030 
000031 
000032 

000033 
000034 
000035 
000036 
000037 
000040 
000041 

000042 
000043 
000044 
000045 
000046 



000047 
000050 
000051 
000052 
000053 
000054 
000055 
000056 



260140 000000 

551000 776000 

413006 000002 

201214 000000 

260140 000007' 

254000 000000 



260140 
621000 
660000 
260140 

242200 
405200 
306200 

254000 

302200 
254000 
722700 
254000 
201040 
542040 
542040 
135040 
137040 
135040 
431040 
137040 
201044 

722600 
660040 
722201 
402000 
542300 
506040 
603000 
700600 
201040 
542040 
722600 
263140 



621000 
260140 
460066 
541066 
270040 
201200 
200100 
254000 



000000' 

010000 

010000 

000064' 

000010 

007400 

004000 

000437' 

000400 

000022' 

004000 

000521' 

000001 

000045 ' 

000212' 

000000 

000540' 

000541' 

000005 

000542' 

000000 

000000 

000200 

000000 

000535' 

000534' 

000534' 

010000 

002100 

000226' 

000223' 

000005 

000000 



000020 

000057' 

000007 

000007 

000543' 

002400 

000544' 

000133' 



00030 

00040 

00050 

00060 

00070 

00080 

00090 

00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 



MAG 



T=ITEM 
TAPE SERVICE 



SUBROUTINE 



MTAPEi: 



MTAPE: 



MTGOi: 
MTGOIA 



MTGO: 



MTCONO: 



;read 

MTIN: 



PUSHJ PDP,WAIT1 

HRRZI lOS, 776000 

ANDCAB I0S,DEVI0S(DEVDAT) 

MOVEI T,(UU0) 

PUSHJ PDP,MTAPE+1 

JRST UXIT 








ANDI 

CAIN 

JRST 

CAIE 

JRST 

CONS 

JRST 

MOVE 

HRRM 

HRRM 

LOB 

DPB 



;SET ACTIVE 

;CHECK IF MAG TAPE CONTROL AV 
J 

BITS 
CAL EOT? 



OAD POINT? 



JUNIT 
T,31] 



;L00K FOR TAPE CONTROL FREE 



"LOB TAC, CPOINT 3» I0S,28 
XORI TAC, 5 

DPB TAC. CPOINT 3,T.23] 
MOVEI TAC,MTCCHN(T) ;CHAN 



NEL 



CONO 224, 
TRO TAC, 200 
CONO 220, (TAC) 
SET2M MTEOFF# 
HRRM DEVDAT,MTDEV# 
HRLM TACMTDEV 
TLNE IOS,IODT 
CONO PI,2000+nCB 
MOVEI TACMTPOUN 
HRRM TAC, MTIDSP 
CONO 224,TCF+ERF 
POPJ PDP, 



;COMMAND, 



;UNIT 



;OENSITY PARITY 
;ODD, 556 



JDISABLE ALL INTERRUPTS 

; INHIBIT RETURN TO POOL 

JCOMMAND 

;CLEAR EOF FLAG 

DVDB 



.-ENABLE FLAGS 



TLZ lOS, 10 

PUSHJ POP, MTCHEK 
-*SETCM TAC.e>DEVIAD(DEVDAT) 
MTlNirr'^^HRRI TAC.PDEVIAD(DEVDAT) 

ADD TAC.CXWD 2. ID 

MOVEI T,2400 ;REA0 
MTIN2: MOVE TAC1,CBLKI DC, 4000+DCN+MTDC»10D 

JRST MTINDC 



; READING 

; IS SYSTEM AVAILABLE? 

;-SIZE-l 

;BUFFER ADDRESS, PROG INCLUDE 

;-SIZE+l,BUFFER+l 
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00590 








00600 








00610 


000057 


660000 


010000 


00620 


000060 


661000 


010000 


00630 


000061 


202006 


000002 


00640 


000062 


352000 


000000 


00650 


000063 


260140 


000000 


00660 


000064 


621000 


004002 


00670 


000065 


202006 


000002 


00680 


000066 


352000 


000000 


00690 


000067 


260140 


000000 


00700 


000070 


256000 


000025' 


00710 


000071 


241040 


000004 


00720 


000072 


722201 


000200 


00730 


000073 


722600 


000002 


00740 


000074 


722700 


000002 


00750 


000075 


263140 


000000 


00760 


000076 


241040 


777774 


00770 


000077 


542301 


000427' 


00780 


000100 


200100 


000545' 


00790 


000101 


137040 


000546' 


00800 


000102 


506101 


000427 ' 


00810 


000103 


700600 


000400 


00820 


000104 


136100 


000000 


00830 


000105 


700600 


000200 


00840 


000106 


371000 


000066' 


00850 


000107 


476000 


000000 


00860 


000110 


607000 


010000 


00870 


000111 


254000 


000114' 


00880 


000112 


371000 


000062' 


00890 


000113 


476000 


000000 


00900 


000114 


260140 


000000 


00910 


000115 


200006 


000002 


00920 


000116 


607000 


010000 


00930 


000117 


254000 


000066' 


00940 


000120 


254000 


000062' 


00950 



;IS SYSTEM AVAILABLE 
HTCHEK: TRO IOS, IOACT 

TLO IOS, lODT 

MOVEM IOS, DEVIOS(DEVDAT) 
MTCHKi: AOSE DCREQ 

PUSHJ POP.DCWAIT _ 

JLZ IOS, lOSEOF'S^inRFi 



MTCHK2 



K2: TLZ IOS, IObEOr<itJJlH£J£^ 
^^'^OVEM IOS, DEVIOS(DEVDAT) 
/ AOSE MTREQ 

-<LC ro4.,"»D^^PUSHJ P0P,MTWAIT ^ ,,^ 



Ti- 



MTCHK3 



ROT TAC, 
CONO 220, 
CONO 224, 
COHOi! gg ' 1 



200(TAC) 
SEL 

9gL ' -^■- 



iHAS UNIT 



p P JBIP-«--J_________ . 

irmrTAc, -T "" '" 

HRRM DEVDAT, MTSTAK(TAC) 
MOVE TACl, CXWD MTCL0K,tD32 
DPB TAC, CPOINT 3, TACl, 233 
HRLM TACl, MTSTAK(TAC) 

PI, 400 

TACl, CLOCK 

PI, 200 

MTREQ ;DECREM 

MTAVAL 



CONO 

IDPB 

CONO 

SOSL 

SETOM 

TLNN IOS, lODT 

JRST MTCHK3 JYES 

SOSL DCREQ ;NO,DEC 

SETOM DCAVAL 

PUSHJ POP, WSYNC 

MOVE IOS, DEVIOS(DEVDAT) 

TLNN IOS, lOOT 

JRST MTCHK2+2 

JRST MTCHKI 



;SET 
;SET 



ACTIVE 
FOR DATA 



TRANSFER 



;CLEAR 
;STORE 



SPACE 
BITS 



TO EOF 



;UNIT 
;PUT IN 
ONLY 

;JAM UNI 
;UNIT NO 

;jExr[___ 
;UNrT IN 

;PUT IN 

;half se 

JSTORE U 
;SAVE AC 

;turn OF 

;REQUEST 

;turn PI 

ent request 

;yes,set 

;non-dat 



UNIT POSITION 

T INTO COMMAND BUFFER 
T READY? 



■~TAe -----. 

stack 

COND 

NIT NUMBER 

TUAL CLOCK REQUEST 

F PI 

CLOCK RETURN TO MTCL 

ON 

COUNT, ANYONE LEFT W 

MAG TAPE AVAL 
A TRANSFER? 




REMENT REQUEST COUNT, ANYONE LEFT 
;YES,SET DATA CONTROL AVAILAB 
;REQUEST WAIT 
JLOAD STATUS 
;DATA TRANSFER? 
;CHECK FOR MT AVAILABLE ONLY 
;CHECK for MT AND DC AVAILABL 
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000121 661000 000020 

000122 260140 000057' 

000123 722700 000200 

000124 254000 000146' 

000125 201066 000010 

000126 210101 000001 

000127 504040 000002 

000130 347040 000275' 

000131 200100 000547' 

000132 201200 001000 

000133 202040 000533' 

000134 202040 000530' 

000135 552100 000531' 

000136 541100 000530' 

000137 202100 000042 

000140 200100 000550' 

000141 202100 000043 

000142 700600 001100 

000143 720220 000531' 

000144 201040 000004 

000145 254000 000023' 

000146 660000 200000 

000147 260140 000250' 

000150 254000 000005' 

000151 135040 000000 

000152 305040 000016 

000153 254000 000160' 

000154 603000 000020 

000155 254000 000161' 

000156 201200 000016 

000157 254000 000006' 

000160 260140 000000 

000161 201200 000003 

000162 260140 000006' 

000163 201200 000003 

000164 260140 000006' 

000165 201200 000007 

000166 254000 000006' 

000167 263140 000000 

000170 254000 000151' 

000171 254000 000121' 

000172 254000 000047' 

000173 254000 000000 

000174 254000 000173' 

000175 254000 000456' 

000176 254000 000506' 

000177 254000 000150' 

000200 254000 000177' 

000201 254000 000200' 

000202 210040 000455' 

000203 572040 000536' 



00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 



;WRITE 
MTOUT: 



MTOUTi: 

MT0UT2: 
MTINDC: 



MTOUTE: 



MTCLS: 



MTCLSi: 



MTDISP: 



TLO lOS. 10 JWRITING 

PUSHJ PDP.MTCHEK 

C0NS2 224,200 MS FILE PROTECT RING IN? 

JRST MTOUTE ;N0, ERROR CANT WRITE. CROCK!! 

MOVEI TAC,e»DEVOAD(DEVDAT) ;BUFFER ADDRESS, PROG INCLUDE 

MOVN TAC1,1(TAC) ;-WD COUNT 

HRL TACTACl J-WD CMT, BUFFER 

AOJG TACMTNOTI ;BUFFER + 1, TEST FOR ZERO WORD COUNT 

MOVE TAC1,CBLK0 DC, 3400+DCN+MTDC»10] 

MOVEI T,1000 ;WRITE 

MOVEM TAC.MTDCCN* 

MOVEM TAC.DCWRD# 
HRRZM TACl, MOCSAV# 
HRRI TAC1,DCWRD 
MOVEM TAC1,40+<2«DCN> 
MOVE TACl.CJSR MTDCNDD 
MOVEM TAC1,41+<2»DCN> 
CONO PI, 1100 
CONO DC. ^MDCSAV 
MOVEI TAC, ERF 
JRST MTGOl 



;8LK0 POINTER 
;SAVE DC COMMAND 



;BLK COMMAND 



;DATA CONTROL COMMAND 



MTCINI: 



TRO IOS,IODERR 
PUSHJ PDP.MTENOl 
JRST UXIT 

LDB TAC.PIOMOD 
CAIGE TAC, 16 
JRST MTCLSI 
TLNE IOS,IO 
JRST MTCLSl+1 
MOVEI T,16 
JRST MTAPE 
PUSHJ POP, OUT 
MOVEI T,3 ;WRITE 
PUSHJ POP, MTAPE 
MOVEI T,3 JWRITE 
PUSHJ PDP, MTAPE 
MOVEI T,7 ;BSP 
JRST MTAPE 
POPJ POP, 
JRST MTCLS 
JRST MTOUT 
JRST MTIN 
JRST CUXITl 
JRST CUXITl 
JRST MTDMPO 
JRST MTDMPI 
JRST UXIT 
JRST UXIT 
JRST UXIT 

MOVN TAC, MTREOO 
HRREM TAC, MTERGN 



{WRITE LOCK, DEVICE ERROR 



MODE 



;SPACE TO 



;DUMP MODE 

;CLOSE OUTPUT 

MNPUT? 

;WRITE EOFS 

EOF 

;GOES BACK TO 



UUO LEVEL 



lOF 



EOF 







{RELEASE 






;CLOSE 






JWRITE 






JREAD 


;enter 


in 


DIRECTORY 


;lookup 


IN DIRECTORY 






;OUMP OUT 






;dump in 






;SETO 






JSETI 






JGETF 



{REPEAT COUNTER 
JRESET ERROR CNTR 



000204 722600 000000 01530 

000205 513000 000212' 01540 

000206 263140 000000 01550 



CONO 224, 
HLLZS MTCINT 
POPJ POP, 



{CLEAR ENABLES 
;CLEAR CONSO 
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01560 










01570 










01580 










01590 


;blk CO 








01600 




000207 


000000 


000000 


01610 


mtdcnd: 


000210 


700600 


001105' 


01620 




000211 


254520 


000207' 


01630 







CONO PI,DCB+1000 
JEN PMTDCND 



;SHUT OF DC CHANNEL 



/v)r;WDN \ 
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(^00212 
000213 
000214 
000215 
000216 
000217 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000270 
000271 
000272 
000273 
^000274 



722740 

254000 

264000 

550300 

135340 

550347 

200006 

722740 

254000 

254000 

254000 

254000 

607000 

254000 

135040 

301040 

254000 

603000 

254000 

332000 

254000 

201066 

210100 

253100 

513000 

270100 

546101 

260140 

254000 

254000 

720200 

371000 

476000 

371000 

476000 

722700 

660000 

620000 

722700 

660000 

722700 

660000 

623000 

260140 

620000 

202006 

722600 

513000 

210040 

572040 

263140 



000005 

000213' 

000000 

000534' 

000000 

000000 

000002 

000001 

000325' 

000226' 

000357' 

000337' 

010000 

000314' 

000151' 

000016 

000250' 

000020 

000275 ' 

000535' 

000323' 

000007 

000533' 

000242' 

000002 

000530' 

000001 

000000 

000250' 

000277' 

000000 

000112' 

000113' 

000106' 

000107' 

010000 

002000 

004000 

004000 

004000 

020000 

004000 

000001 

000000 

010000 

000002 

000000 

000212' 

000455' 

000536' 

000000 



01640 

01650 

01660 

01670 

01680 

01690 

01700 

01710 

01720 

01730 

01740 

01750 

01760 

01770 

01780 

01790 

01800 

01810 

01820 

01830 

01840 

01850 

01860 

01870 

01880 

01890 

01900 

01910 

01920 

01930 

01940 

01950 

01960 

01970 

01980 

01990 

02000 

02010 

02020 

02030 

02040 

02050 

02060 

02070 

02080 

02090 

02100 

02110 

02120 

02130 

02140 

02150 

02160 

02170 



;FLAG from TAPE 
MTCINT: 



CONTROL. SET 
224.TCF+ERF 



UP BY INSERT MACRO 



MTIOSP: 



MTPDUN 



CONSO 

JRST . 

JSR MTCSAV 

HRRZ DEVDAT.MTDEV 

LOB procpjobn; 

Move -tt^S? PROG, JBTADR(PROG) 
MOVE lOS, DEVIOS(DEVOAT) 
CONSO 224. TCF 
JRST MTEOR 
JRST MTPDUN 
JRST MTBSP 
JRST MTERR 
TLNN IOS,IODT 
JRST MTNI02 
LOB TACPIOMOD 



X 



MTENDl 



MTNIO 



;SAVE ACS 

;ovob 

job NUMBER 



TAPE CONTROL FREE 



;POINTS TO MTERR 
JAFTER BACKSPACE 
; IF ERROR FOUND 



FOR ERROR 



CAR 
JRST 
TLNE 
JRST 



TAC,16 
MTENDl 
IOS,IO 
MTNOTI 



\ SKIPE MTEOFF 

\>sA. ^''ST MTEOF 
IjTT|r6ML.*-7M0VEI TAC,«'OEVIAD(DEVDAT) 



h^TOF-p 



roredh 



MOVN TACl.MTDCCN 

AOBJN TACl, .+1 

HLLZS TACl 

ADD TAC1,DCWRD 

HLRM TACl.KTAC) 

PUSHJ PDP.ADVBFF 

JRST .+2 ;NEXT BUFFER FULL 

JRST MTCON 

CONO DC, 

SOSL DCREQ 

SETOM DCAVAL 

SOSL MTREQ 

SETOM MTAVAL 

CONSZ 224,10000 

TRO lOS, lOTEND 

TRZ lOS, lOBOT 

CONSZ 224, 4000 

TRO IDS, lOBOT 

CONSZ 224, 20000/ 

TRO IDS, I080J 

TLZE lOS, lOK 

PUSHJ POP. SETIOD 

TRZ IDS, lOACT 

MOVEM lOS, DEVIOS(DEVDAT) 

CONO 224,0 

HLLZS MTCINT 

MOVN TAC, MTREDO 

HRREM TAC, MTERCN# 

POPJ POP, 



;dump 

;WRITING 
JNOT EOF? 

;buffer address 

;W0 CNT-1 

;WD CNT 

JCLR RT half 

;ADD CURRENT COUNT=NO, 

;STORE AT WORD COUNT 



OF WDS 



;CONTINUE MODE 
;TURN off DATA CONTROL 
DECREMENT REQUEST COUNT, ANYONE LEFT? 
;YES, SET FLAG FOR CLOCK 



;YES, SET FLAG FOR CLOCK 

;end of tape? 

;set end of tape indication 

;clr load point indication 

;L0AD POINT? 

;SET LOAD POINT INDICATION 

;TAPE REWINDING? 

;SET LOAD POINT INDICATION 

;CLEAR WAIT 

;REQUEST WAIT SATISFIED 

;clear active 
;restore bits 
;clear mag tape enables 
;clear conso 
;repeat counter 



{DISMISS INTERRUPT OR RETURN TO CALLER 
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5500275 
000276 
000277 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000320 
000321 
000322 
000323 
000324 
000325 
000326 

000327 
000330 
000331 

000332 
000333 
000334 
000335 
000336 



260140 
254000 
602000 
254000 
722700 
254000 
720200 
623000 
260140 
202006 
210040 
572040 
607000 
254000 
254000 
554040 
405040 
302040 
254000 
722700 
661000 
254000 
661000 
254000 
722700 
370000 

722700 
476000 
722600 

202040 
201040 
542040 
200040 
254000 



000000 
000250 
000040 
000250 
010000 
000250 
000000 
000001 
000265 
000002 
000455 
000536 
000020 
000052 
000125 
000534 
007400 
003000 
000253 
000400 
004000 
000253 
000040 
000250 
000030 
000223 

000400 
000535 
000001 

000207 
000001 
000212 
000207 
000000 



02180 

02190 

02200 

02210 

02220 

02230 

02240 

02250 

02260 

02270 

02280 

02290 

02300 

02310 

02320 

02330 

02340 

02350 

02360 

02370'" 

02380 

02390 

02400 

02410 

02420 

02430 

02440 

02450 

02460 

02470 

02480 

02490 

02500 

02510 

02520 

02530 

02540 

02550 



MTNOTI : 
MTCON: 



MTNI02: 




PUSHJ 

JRST 

TRNE 

JRST 

CONSZ 

JRST 

CONO 

TLZE 

PUSHJ 

MOVEM 

MOVN 

HRREM 

TLNN 

JRST 

JRST 

HLRZ 

AND I 

CAIE 

JRST 

CONSZ 

TLO I 

JRST 

TLO I 

JRST 

CONSZ 

SOS M 



POP, 
MTEND 
lOS, I 
MTEND 

224. 
MTEND 
DC.0 
IDS. I 

POP, 

IDS. 
TACM 

TAC. 
lOS, I 
MTINl 
MTOUT 
TACM 
TAC, 7 
TAC, 
MTNIO 

224, 
OS, I 
MTNIO 
OS, I 
MTEND 

224, 
TIDSP 



ADVBFE 

1 

OCON 

1 

10000 . 

1 



;WRITING 

;CONTINUOUS? 
;STOP TAPE 
JEND OF TAPE? 
{STOP TAPE 
JCLEAR DATA CONTROL 



OW 

SETIOD 

DEVIOS(DEVDAT) 

TREDO 

MTERCN 





1 

TDEV 
400 
3000 

400 
OSEOF 

OEND 

1 

LPE+CPE 



; INPUT OR OUTPUT? 
JCALL INPUT SUBROUTINE 
;CALL OUTPUT SUBROUTINE 
; COMMAND 

jspacing one record 

;exit 

;eof? 

;SET EOF DETECTED 

;exit 



CONSZ 224, 400 
SETOM MTEOFF 
CONO 224, TCF 

MOVEM TAC, MTDCND 
MOVEI TAC, TCF 
HRRM TAC, MTCINT 
MOVE TAC, MTDCND 
JRST MTCRET 



IF END OF RECORD CHECK PARIT 

IF ERROR CAUSE INTERRUPT TO 

ERROR ROUTIE VIA TCF 

EOF? 

SET EOF FLAG 

IF ERF, CAUSE INTERRUPT TO D 

PATCH TABLE, DISABLE ERF FLA 

SAVE TAC 

LOOK FOR TCF ONLY 

SET CONSO 

RESTORE TAC 

DISMISS AND RETURN VIA TCF 






j,.p8 
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000337 554040 000534' 

000340 405040 007400 

000341 306040 002400 

000342 254000 000345' 

000343 302040 001000 

000344 254000 000403' 

000345 606000 000100 

000346 351000 000536' 

000347 254000 000355' 

000350 554040 000534' 

000351 405040 770377 

000352 722201 003400 

000353 370000 000223' 

000354 254000 000331' 

000355 660000 200000 

000356 254000 000226' 

000357 200040 000533' 

000360 202040 000530' 

000361 720240 000001 

000362 405040 000777 

000363 271040 003000 

000364 606040 000400 

000365 271040 001000 

000366 720201 000000 

000367 554040 000534' 

000370 722740 040000 

000371 254000 000370' 

000372 722201 000000 

000373 402000 000535' 

000374 700600 002100 

000375 201040 000226' 

000376 542040 000223' 

000377 201040 000004 

000400 542040 000212' 

000401 722600 000004 

000402 254000 000336' 

000403 350000 000223' 

000404 254000 000331' 



02560 
02570 
02580 
02590 
02600 
02610 
02620 
02630 
02640 
02650 
02660 
02670 
02680 
02690 
02700 
02710 
02720 
02730 
02740 
02750 
02760 
02770 
02780 

02790 
02800 
02810 
02820 
02830 
02840 
02850 
02860 
02870 
02880 
02890 
02900 
02910 
02920 
02930 
02940 
02950 
02960 
02970 
02980 
02990 
03000 
03010 



MTERR 



MTERR2: 



MTBSP 



MTIGN2: 



HLRZ TACMTDEV 
ANDI TAC,7400 
CAIN TAG, 2400 
JRST .+3 
CAIE TAG, 1000 
JRST MTIGN2 
TRNN IDS, lONRCK 
AOSL MTERCN 
JRST MTERR2 
HLR2 TACMTDEV 
ANDI TAG, 770377 
CONO 220,3400(TAC) 
SOS MTIDSP 
JRST MTIGN 

TRO lOS, lOOERR 
JRST MTPDUN 

MOVE TAC.MTDGCN 
MOVEM TACOCWRD ■ 
CONI DC, TAG 



;bsp 



;COMMAND 

;read? 

;WRITE 

; IGNORE IF NOT RD OR WRITE 

;RE-DO? 

jthird error? 
;'triple error 
;gommand 



;DEVIGE ERROR 



;POINTER 

;RESET POINTER WORD 

;SAVE IN/OUT, PACK MD, 

;PRIORITY. 



DEV NU 



ANDI TAG, 777 




ADDI TAG, 3000 


{MAKE WRITE 


TRNN TAG, 400 


;WAS IT WRITING? 


ADDI TAG, 1000 


;MAKE READ 


CONO DC, (TAG) 


{REISSUE CONO 


HLRZ TACMTDEV 


{COMMAND 


GONSO 224, XNG 


{WAIT FOR XNG 


JRST .-1 ;SHOULD ADD A COUNT ( RUNAWAY TAPE TURNED 


CONO 220, (TAG) 


{REISSUE RD OR WRITE 


SETZM MTEOFF 


{CLR EOF FLAG 


CONO PI,2000+DCB 


{TURN ON CHANNEL 


MOVEI TAG, MTPDUN 


{RESET SWITCH 



HRRM TAG, MTIDSP 
MOVEI TAG, ERF 
HRRM TAG, MTCINT 
CONO 224, ERF 
JRST MTCRET 
AOS MTIDSP 
JRST MTIGN 



{ENABLE PROPER FLAGS 
{RESET DISPATCH SWITCH 



{NEED TO TRY WRITING LONG RECORD GAP ON OUTPUT(ONLY) AND TRY 
{ONCE MORE AT NEW SPOT ON TAPE IF TRIPLE ERROR 
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PI00405 
000406 
000407 
000410 
000411 
000412 
000413 
000414 
000415 
000416 
000417 
000420 
000421 
000422 
000423 
000424 
000425 
000426 



550301 
241040 
722201 
722600 
722700 
254000 
241040 
544101 
505100 
700600 
136100 
700600 
263140 
200006 
623000 
260140 
202006 
263140 



000427 

000004 

000200 

000002 

000002 

000422 

777774 

000427 

000405 

000400 

000104' 

000200 

000000 

000002 

000001 

000305 

000002 

000000 



03020 
03030 
03040 
03050 
03060 
03070 
03080 
03090 
03100 
03110 
03120 
03130 
03140 
03150 
03160 
03170 
03180 
03190 
03200 
03210 
03220 
03230 
03240 
03250 
03260 
03270 
03280 
03290 
03300 
03310 
03320 
03330 
03340 
03350 
03360 
03370 
03380 
03390 
03400 
03410 
03420 
03430 
03440 



XNC=40^00 ^ 

MTDC=2 

TCF = 1 

ERF = 4 

LPE=20 

CPE=10 

DCB=100 

DCN = 1 

SEL = 2 

IOSeOF=4000 

IOTENO=2000 

IONRCK=100 

IOBOT=4000 

IODT=10000 

EXTERNAL UXIT 



TRANSFER NEW COMMAND 
MAG TAPE DATA CONTROL 
TAPE CONTROL FREE 
END OF RECORD FLAG 



DEVICE NO 



;long 

JCHAR 

;data 
;data 
junit 



. PARITY 
PARITY 

channel 

CHANNEL 



ERROR 
ERROR 
NUMBER 
NUMBER 



TO COMMAND BUFFER 
;SPACING ONE RECORD FORWARD FOUND EOF 
;E0T INDICATION 

;do not re-try on errors 
jtape at load point 

;A 1 FOR A DATA TRANSFER TYPE COMMAND 
ADV8FF, ADVBFE, DCREQ, DCWAIT, MTCSAV 

MTREQ 



EXTERNAL MTCRET, DCAVAL. MTAVAL, MTCCHN, MTCCHL, 

EXTERNAL MTWA I T , OUT, SET I OD , CLOCK , CUX ITl 

EXTERNAL WSYNC, USRREL , WA I Tl , ADRERR, PUNI T, PIOMOD, PJOBN 

EXTERNAL JBTADR 

ENTRY MTDISP 

INTERNAL MTC INT , MTAPEl , MTC IN I 

^CLOCK INTERRUPT, UNIT IN TAC ^f^<J>f^ 



mtclok;^ i i nn € d 



MT6TAK<TAC»^^^' 




EVDAT 

C, 4 
CONO 220, 200(TAC) i 
CONO 224, SEL 
CONSZ 224, SEL 
JRST ^TCLKg /UnU/O 
ROT TAC, -4 



OVDB 
PUT UNIT 



IN SEL BITS 



UNIT ONLY 



nmrt 

CONO 
IDPB 
CONO 
POPJ 
MOVE 
TLZE 
PUSHJ 



(WTstakI 



MOVEM lOS, 
POPJ POP, 











PI, 400 
TACl, CLOCK 
PI, 200 
POP, 

lOS, DEVIOS(DEVDAT) 
I0S,I0W 
POP, SETIOD 



;SET UNIT 

;UNIT NOT READY? 

;UNIT READY 

;F0R INDEXING PURPOSES 

;CLOCK REQUEST 

;GET clock REQUEST 

;turn off pi 

{store clock requested 

;TURN ON pi 
EXIT 



DEVIOS(DEVDAT) 



Aif^^/^i 






CI 
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03450 
03460 

03470 JLOGICAL END OF TAPE LOOP 

000437 722700 004000 03480 MTLEOT: C0NS2 224, 4000 ;TAPE NOT AT LOAD POINT? 

000440 254000 000443' 03490 JRST MTE0T2 ;aVOID BACKSPACE IF AT LOAD P 

000441 201200 003400 03500 MOVEI T,3400 {BACKSPACE 

000442 260140 000022' 03510 PUSHJ POP, MTGOl-1 

000443 201200 000016 03520 MTE0T2: MOVEI T.16 ;SPACE ONE FILE 

000444 260140 000006' 03530 PUSHJ POP, MTAPE 

000445 201200 000006 03540 MOVEI T,6 ;SPACE ONE RECORD 

000446 260140 000006' 03550 PUSHJ POP, MTAPE" 

000447 260140 000006' 03560 PUSHJ POP, WAITI JWAIT UNTIL SPACING IS COMPLE 

000450 200006 000002 03570 MOVE lOS, DEV I OS (DEVDAT ) 

000451 607000 004000 03580 TLNN lOS, lOSEOF ;WAS EOF DETECTED? 

000452 254000 000443' 03590 JRST MTE0T2 ;RESUME SPACING 

000453 201200 000007 03600 MOVEI T,7 {BACKSPACE, LOGICAL EOT FOUND 

000454 254000 000006' 03610 JRST MTAPE {RETURN BACK TO MAIN PROGRAM 

000455 000000 000012 03620 MTREDO: 12 {NUMBER OF TIMES TO RE-EXECUTE 
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000456 
000457 
000460 
000461 
000462 
000463 
000464 
000465 
000466 
000467 
000470 
000471 
000472 
000473 
000474 
000475 
000476 
000477 
000500 
000501 
000502 
000503 
000504 
000505 

000506 
000507 
000510 
000511 
000512 
000513 
000514 



000515 
000516 



000517 
000520 
000521 
000522 
000523 
000524 
000525 
000526 
000527 

000540 
000541 
000542 
000543 
000544 
000545 



661000 000020 
550200 000014 
260140 000057' 
200120 000131' 

2000'*0 00000^^ 
201200 001000 
505040 000007 
202040 000532' 
336060 000001 
254000 000517' 
325040 000464' 
576040 000537' 
553000 000001 
274040 000537' 
313040 000000 
254000 000515' 
200060 000532' 
270040 000007 
260140 000133' 
260140 000447' 
350200 000532' 
607000 000020 
254000 000510' 
254000 000460' 

621000 000020 

550200 000014 

260140 000057' 

200120 000055' 

200040 000004 

201200 002400 

254000 000464' 



260140 000517' 
254000 000000 



371000 
476000 
371000 
476000 
620000 
623000 
260140 
202006 
263140 



000251' 

000252' 

000253' 

000254' 

010000 

000001 

000424' 

000002 

000000 



040300 000004 
070300 000000 
140300 000004 
000002 000001 
720000 004021 
000405'000040 



03630 
03640 
03650 
03660 
03670 
03680 
03690 
037p50 
03710 
03720 
03730 
03740 
03750 
03760 
03770 
03780 
03790 
03800 
03810 
03820 
03830 
03840 
03850 
03860 
03870 
03880 
03890 
03900 
03910 
03920 
03930 
03940 
03950 
03960 
03970 
03980 
03990 
04000 
04010 
04020 
04030 
04040 
04050 
04060 
04070 
04080 
04090 
04100 
04110 
04120 
04130 
04140 



;OEVinE DEPENDENT DUMP MODES. MODE 16. 



;output: 

MTDMPO: 



MTDMPl 



; INPUT 
MTDMPl 



iADORESS 



TLO lOS, 10 

HRR? T,UU0 

PUSHJ POP, MTCHEK 

MOVE TACl. eMT0UT2 

MOVE Tact 

MOVEI T,1000 
HRLI TAC, PROG 
MOVEM TAC, MTCMDP# 
SKIPN TAC,e»TAC 
JRST MTDMP3 
JUMPGE TAC, MTDMPl 
HLREM TAC, SVCNTR# 
HRRZS TAC 
SUB TAC, SVCNTR 
CAMLE TAC, USRREL 
JRST MTDMP2 
MOVE TAC, PMTCMDP 
ADD TAC, PROG 
PUSHJ POP, MTINDC 
PUSHJ PDP,WAIT1 
AOS T.MTCMDP 
TLNN IDS, 10 
JRST MTDMPI+2 
JRST MTDMPO+2 

TLZ IDS. 10 
HRRZ T,UUO 
PUSHJ POP, MTCHEK 
MOVE TACl,e>MTIN2 
MOVE TACT 
MOVEI T,2400 
JRST MTDMPl 
ERROR 



;WRITING 



MTDMP2: PUSHJ PDP,MTDMP3 

JRST ADRERR 
;CLEAR ALL USE BITS. NOTHING 



;IS SYSTEM AVAILABLE? 
;BLK0 AND DATA CONTROL COMMAN 

JCOMMAND LIST POINTER 
;WRITING COMMAND 

;ACTUAL ADDRESS OF COMMAND LI 
;COMMAND POINTER 

;COMMAND WORD 

;N0THING TO DO 
;CHANGE COMMAND SEQUENCE 
;SAVE COUNTER 

;get address alone 
;get last address 
5less than end? 
;out of bounds 
;pick up pointer again 

;GET actual ADDRESS 

;move tape 

;update command pointer 
;writing? 
jreading 
; writing 



jreading 

;is system available 

;8LKI AND data CONTROL COMMAN 

.-command list pointer 

COMMAND 
;DUMP 



;read 



IN command list 



MTDMP3: SOSL DCREQ 

SETOM DCAVAL 
MTDMP4: SOSL MTREQ 

SETOM MTAVAL 

TRZ IOS,IOACT 

TLZE IDS, low 

PUSHJ POP.SETIOD 

MOVEM IOS,DEVIOS(DEVDAT) 

POPJ POP, 

END, 



000546 140300 000002 

000547 720100 003421 
000550 264000 000207' 



THFRE ARE NO ERRORS 
PROGRAM BREAK IS 000551 



MTPSFR - MAGNETIC TAPE SERVICE ROUTINES 
SYMBOL TABLE 



- NO DIRECTORIES PAGE 13 



A 

ACl 

AC2 

AC3 

ADRERR 

ADVBFE 

ADVBFF 

AL 

ASSCON 

ASSPRG 

B 

BUFPNT 

BUFWRD 

CLOCK 

CLOSB 

CLSIN 

CLSOUT 

CPF 

CUXITl 

n 

OAT 

DCAVAL 

OCR 

OCL 

DCN 

DCREO 

DCW 

DCWAIT 

OCWRD 

DDI 

000 

DDTMEM 

ODTSYM 

OEN 

OEVADR 

OEVBUF 

OEVCHR 

OEVCTR 

OEVDAT 

OEVIAD 

OEVIOS 

OEVLOG 

OEVMOD 

OEVNAM 

OEVOAD 

OEVPTR 

OEVSER 

OGF 

OIN 

OLK 

OOU 

OR 

ORL 

OS I 

DSO 



000000 

000015 

000016 

000017 

000516* 

000275' 

000245' 

000001 

400000 

200000 

000014 

000012 

000013 

000417' 

002000 

000002 

000001 

000010 

000174' 

000017 

PI00005 

000520' 

000100 

000001 

000001 

000517' 

020000 

000063' 

000530' 

000007 

000006 

000037 

000036 

000004 

000007 

000006 

000001 

000011 

000006 

000007 

000002 

000005 

000004 

000000 

000010 

000010 

000003 

000012 

000003 

000005 

000002 

000016 

000000 

000011 

000010 



INT 
TNT 
TNT 
INT 
FXT 
FXT 
EXT 
INT 
INT 
INT 
INT 
INT 
INT 
EXT 
INT 
INT 
INT 

EXT 
INT 
TNT 
EXT 

INT 

EXT 
INT 
EXT 

INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 



MTPSFR - 


MAGNETIC TAPE 


SERVICE ROUTINES 


- 


SYMBOL 


TABLE 






OTW 


040000 


INT 




OVAVAL 


000040 


INT 




DVCDR 


100000 


INT 




nVDIR 


000004 


INT 




DVDIRI 


400000 


INT 




DVIN 


000002 


INT 




DVLPT 


040000 


INT 




DVMTA 


000020 


INT 




nvouT 


000001 


INT 




nVTTY 


000010 


INT 




ENTRB 


020000 


INT 




FRF 


000004 






I 


000010 


INT 




IB 


000013 


INT 




IBUF8 


200000 


INT 




INIT8 


400000 


INT 




TNPB 


010000 


INT 




10 


000020 


INT 




lOACT 


010000 


INT 




lOBEG 


000002 


INT 




lORKTL 


040000 


INT 




lOROT 


004000 






lOCON 


000040 


INT 




lODEND 


020000 


INT 




lOnERR 


200000 


INT 




lODiSC 


400000 


INT 




lOnONE 


400000 


INT 




lOnT 


010000 






lODTER 


100000 


INT 




lOEND 


000040 


INT 




lOFST 


000004 


TNT 




lOIMPM 


400000 


INT 




lONRCK 


000100 


INT 




lORDEL 


000100 


INT 




lORET 


000020 


INT 




lOS 


000000 


INT 




lOSEOF 


004000 






lOSTRT 


000010 


INT 




lOTEND 


002000 






lOUSF 


400000 


INT 




lOW 


000001 


INT 




lOWC 


000020 


INT 




lOWS 


400000 


INT 




ITFM 


000004 


INT 




JBFADR 


000000 


INT 




JBFCTR 


000002 


TNT 




JBFPTR 


000001 


INT 




JBTADR 


000217* 


FXT 




JBUF 


000005 


INT 




JDAT 


000011 


INT 




JERR 


002000 


INT 




JIOW 


100000 


INT 




JNA 


004000 


INT 




LOOKB 


040000 


INT 




LPF 


000020 
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MOCSAV 

MTAPE 

MTAPEl 

MTAVAL 

MTBSP 

MTCCHL 

MTCCHN 

MTCHEK 

MTCHKl 

MTCHK2 

MTCHK3 

MTCINI 

MTCINT 

MTCLK2 

MTCLOK 

MTCLS 

MTCLSl 

MTCMDP 

MTCON 

MTCONO 

MTCRET 

MTCSAV 

MTDC 

MTDCCN 

MTDCND 

MTOEV 

MTDISP 

MTDMPl 

MTnMP2 

MTDMPS 

MTnMP4 

MTOMPI 

MTnMPO 

MTFNDl 

MTFOF 

MTFOFF 

MTFOR 

MTF0T2 

MTFRCN 

MTFRR 

MTFRR2 

MTGO 

MTGOl 

MTGOIA 

MTIOSP 

MTIGN 

MTTGN2 

MTTN 

MTTNl 

MTIN2 

MTINDC 

MTINDN 

MTLEOT 

MTNIO 

MTNI02 



000531 
000006 

000000 

000522 
000357 
000000 
000032 
000057 
000062 
000064 
000114 
000202 
000212 
000422 
000405 
000151 
000160 
000532 
000277 
000045 
000402 
000214 
000002 
000533 
000207 
000534 
000167 
000464 
000515 
000517 
000521 
000506 
000456 
000250 
000323 
000535 
000325 
000443 
000536 
000337 
000355 
000033 
000023 
000025 
000223 
000331 
000403 
000047 
000052 
000055 
000133 
000237 
000437 
000253 
000314 



TNT 
EXT 

FXT 
FXT 



INT 
INT 



EXT 
EXT 



INT 
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MTNOTI 

MTOUT 

MTOUTl 

MT0UT2 

MTOUTE 

MTPDUN 

MTREDO 

MTREO 

MTSTAK 

MTW 

MTWAIT 

OBUFB 

OUT 

OUTPR 

POP 

PICHN 

PIOMOD 

PJOBN 

PROG 

PUNIT 

RUN 

RUNABL 

SEL 

SETIOD 

SVCNTR 

T 

TAC 

TACl 

TCF 

TEM 

TTYATC 

TTYUSE 

USRMOD 

USRRFL 

UUO 

UXIT 

WAITl 

WSYNC 

XNC 



000275' 




000121 ' 




000125' 




000131' 




000146' 




000226' 




000455' 




000521' 


EXT 


000427' 




010000 


INT 


000067' 


EXT 


100000 


INT 


000160' 


EXT 


004000 


INT 


000003 


INT 


000100 


INT 


000230' 


EXT 


000216' 


EXT 


000007 


INT 


000025' 


EXT 


200000 


INT 


204000 


INT 


000002 




000525' 


EXT 


000537' 




000004 




000001 


INT 


000002 


INT 


000001 




000010 


INT 


020000 


INT 


010000 


INT 


010000 


INT 


000474' 


EXT 


000014 


INT 


000201' 


EXT 


000501' 


EXT 


000114' 


EXT 


040000 





END OF ASSEMBLY 



